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Abstract 

The  Job  of  estimating  the  production  costs  of  injection 
molded  thermoplastic  structures  requires  designers  and  analysts 
to  produce  detailed  preliminary  drawings  and  consult  machinists 
with  expertise  in  mold  production. 

Interviews  with  injection  molding  experts  produced  a  scale 
of  part  complexity  and  associated  range  of  labor  houx^  for  mold 
production.  This  scale  is  incorporated  into  a  cost  estimating 
methodology  which  allows  the  analyst  to  estimate  the  cost  of  the 
structure  without  the  aid  of  technicians. 

The  resulting  cost  model  for  the  injection  molding  process 
is  then  programmed  into  an  interactive  Pascal  computer  program 


for  ease  of  use  and  dociimentation. 


A  MICROCOMPUTER  PROGRAM  FOR  ESTIMATING 
PRODUCTION  COSTS  OF  INJECTION  MOLDED 
PLASTIC  STRUCTURES 

I.  Introduction 

General  Issue 

The. desire  to  lower  the  cost  and  increase  the 
reliability  of  aerospace  systems  has  led  manufacturers  to 
investigate  new  materials  and  fabrication  techniques.  The 
unique  mechanical  properties  of  thermoplastic  composite 
materials  make  it  possible  to  produce  structures  with 
physical  properties  (stiffness,  strength,  heat  tolerance, 
etc.)  equal  to  those  of  metal,  at  significantly  lower 
weights  (Chew,  1990;!).  Thermoplastics  are  simpler, 
quicker,  and  less  expensive  to  produce  than  like  metal 
structures  (Chew,  1990;  1). 

Over  the  past  decade,  advanced  polymer  materials  have 
gained  widespread  use  in  aircraft  design.  Most  notably, 
the  B-2  "stealth",  P-117,  and  Advanced  Tactical  Fighter 
(ATF) .  Military  aircraft  have  been  the  primary  users  of 
these  materials,  because  the  need  to  improve  performance 
and  decrease  radar  signature  in  these  aircraft  outweighed 
the  cost  and  difficulty  of  using  these  materials  during 
their  experimental  phase  (Millbank,  1990;  A2B) . 

However,  as  advanced  polymers  become  more  common  in 
aircraft  production,  they  are  finding  their  way  into  more 
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widespread  use.  Commercial  aircraft  manufacturers,  wanting 
to  gain  'jetter  fuel  economy  throu»^h  decreased  aircraft 
weight,  are  incorporating  polymers  into  new  designs.  A 
report  by  the  National  .Aeronautics  And  Space  Administration 
predicts  that  65%  of  all  new  aircraft  will  be  made  of 
plastics  by  the  end  of  the  decade  (MiJlban!:,  1990;  A2B). 
Advanced  plastics  have  even  been  approved  for  use  in 
primary  structural  components  of  commercial  aircraft  (Wall 
Street  Journal,  1990a). 

Automobile  manufacturers  have  also  begun  exploiting  . 
these  plastics.  B.F.  Goodrich  Company  announced  it  was 
investing  $19  million  in  a  new  plant  to  produce 
thermoplastic  compotinds.  These  compotinds  will  redu  :e  both 
the  fuel  consumption  and  maintir.nance  cocts  of  new  cars 
(Wall  Street  Journal,  1990b). 

Recent  studies  by  the  United  States  Air  Force 
Astronautics  Laboratory  have  shown  promising  results  in.  thS 
use  of  advanced  polymer  materials  in  the  fabripation  of 
rocket  (Chew,  1989;  1)  and  air-to-air  missile  (Baird,  1990; 
16)  propulsion  systems. 

Use  of  the  injection  molding  production  process  for 
thermoplastic  structures  promises  significant  gains  in  cost 
and  simplicity  over  more  traditional  production  methods. 
However,  estimating  of  costs  for  individual  parts  remains 
an  informal,  "off  the  cuff"  process*  heavily  reliant  on  the 
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judgments  of  machinists  and  technicians  at  small 
fabrication  shops  (Stoddard,  1991}. 

As  the  use  of  thermoplastic  composites  increases,  with 
their  growing  applications  in  aircraft  and  rocket  design, 
the  need  for  more  formalized  and  uniform  estimating  tools 
will  grow. 

Background 

Injection  molding  is  a  process  in  which  a  powdered 
polymer  resin  is  melted  and  injected  anto  a  mold  cavity. 

The  polymer  cools  and  takes  the  shape  of  the  mold.  Molded 
polymers  typically  require  very  short  periods  (less  than 
one  minute)  to  solidify  after  injection.  The  resulting 
part  usually  requires  little  or  no  additional  work  prior  to 
use  (Leopold,  1990;  288). 

An  injection  molding  process  has  two  primary 
components:  an  injector,  to  melt  the  polymer  and  transfer 
it  into  the  mold,  and  a  clamp  unit  to  maintain  pressure  on 
the  mold  (Kirkham,  1990;  286). 

Two  types  of  Injectors  are  currently  in  use:  the  two- 
stage  unit,  and  the  reciprocating  screw.  The  two-stage 
uses  a  screw  (first  stage)  to  feed  melted  polymer  into  an 
injection  plunger  (second  stage)  which  transfers  the 
material  into  the  mold  (Fig  1).  This  method  has  the 
advantages  of  superior  consistency  in  the  melting  of  the 
material ,  higher  pressures  and  Injection  rates ,  and  greater 
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control  of  the  material  "shot".  The  disadvantages  of  the 
two-stage  method  are,  primarily,  higher  equipment  and 
maintenance  costs  (Kirkham,  1990;  286).  The  reciprocating 
screw  method  (Fig  2),  the  most  commonly  used  injection 
process,  melts  and  injects  the  polymer  without  the  use  of 
ein  injection  plunger.  Powdered  or  pelletized  polymer  is 
melted  and  fed  into  the  mold  by  the  turning  action  of  the 
screw. .  The  material  flows  through  the  screw  tip  and  is 
deposited  inside  the  mold,  in  front  of  the  screw.  As  the 
polymer  accumulates,  it  forces  the  screw  backwards,  out  of 
the  mold,  until  the  mold  is  filled.  Advantages  of  the 
reciprocating  screw  method  include:  quicker  cycle  time  for 
the  process  and  self-cleaning  of  the  mold  and  screw 
(Kirkham,  1990;  286). 

Injection  into  the  mold  can  require  material  pressures 
up  to  28,000  p.s.i.  with  the  mold  cavity  filling  in  half  a 
second  (Leopold,  1990;  288).  Such  pressures  require  high 
pressure  clamps  to  hold  the  mold  in  place  during  the 
Injection.  Once  the  mold  is  filled,  the  pressure  is 
reduced  to  between  5,000  and  10,000  p.s.i.  This  secondary 
pressure  is  maintained  for  to  10  seconds,  as  the  form 
solidifies. 

There  are  numerous  variations  and  special  techniques 
used  to  improve  the  consistency  and  quality  of  the 
particular  polymers  being  used,  but  the  basic  processes 
remain  the  same. 
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The  polymer  jjjaterial  to  be  molded  may  contain  high 
volumes  of  fillers  (up  to  70%  by  weight)  to  reduce  cost 
and/or  increase  performance  by  incorporating  special 
material ‘ qualities .  Common  fillers  include  glass  fiber, 
mineral  fiber,  clay,  wood  fiber,  and  carbon  black  (Leopold, 
1990;  288). 

Molds  for  the  part  are  produced  by  a  machinist, 
working  from  detailed  drawings  of  the  part  design.  In 
addition  to  creating  the  shape  of  the  part,  the  mold  must 
allow  for  flow  of  the  polymer  material  into  it,  and  place 
seams  so  that  the  part  may  be  readily  ejected  from  the  mold 
after  fabrication  (Frank,  1991). 

Estimating  costs  for  production  of  injection  molded 
parts  has,  to  this  point,  been  an  informal  art,  practiced 
by  managers  of. small  businesses  and  laboratories,  the 
primary  users  of  injection  molded  thermoplastics  (Chew, 

1991).  Costs  for  new  parts  are  generally  estimated  using 
the  judgement  of  the  machinist  who  will  create  the  initial 
mold  (Frank,  1990).  This  methodology  is  non^standardized, 
and  not  available  to  managers  or  parts  designers  who  do  not 
have  ready  access  to  a  machinist  skilled  at  making  such 
estimates.  At  the  present,  little  information  is  available 
on  thermoplastic  fabrication  cost  estimation  (Foley »  1990;  2} 
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Problem  Statement 


Designers  of  thermoplastic  structures  lack  a  reliable, 
readily  available  tool  for  predicting  the  costs  to 
manufacture  those  structures  through  injection  molding. 

Investigative  Questions 

1.  What  are  the  significant  cost  drivers  in  the 
thermoplastic  injection  molding  production  process? 

2.  How  can  these  cost  factors  be  evaluated  and  related 
in  a  cost  estimating  model? 

3.  How  can  this  model  be  made  easily  useable  by  - 
managers  neSding  immediate  estimates  of  production  costs 
for  the  manufacture  of  thermoplastic  structures? 


II .  Methodology 


Introduction 

This  chapter  will  review  the  procedures  that  will  be 
used  to  solve  the  research  problem.  One  of  the  methods 
used  to  gather  Information  will  be  the  personal  Interview. 
From  the  outset  of  this  research,  it  was  clear  that  very 
little  formal,  written,  methodology  existed  for  cost 
estimation  of  injection  molded  plastics.  Emory,  writing  in 
his  book  Business  Research  Methods .  states  that,  "published 
documents  record  major  events  In  history,  but  most  of  the 
past  data  we  seek  Is  recent  and  too  limited  In  Interest  to 
be  published.  Questioning  Is  the  only  way  to  secure  the 
Information  (Emory,  1380;  214)."  With  most  of  the 
production  by  this  process  done  in  small  shops  and 
laboratories,  costs  (especially  the  critical  cost  of  mold 
production)  are  estimated  almost  exclusively  by  the  expert 
judgement  of  machinists.  The  Information  gathering 
process,  therefore,  primarily  Involved  interviewing 
injection  molding  manufacturers  to  determine  the 
methodologies  being  used  to  estimate  costs  prior  to 
production,  significant  process  cost  factors,  and  the 
characteristics  of  the  molded  part  which  affected  Its  cost. 

Analysis  of  cost  estimates  and  production  data  from 
existing  parts  was  also  used,  although  such  data  was  scarce 
and  typically  Incomplete. 
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Once  this  information  was  gathered,  the  methods  found 
in  use  were  seen  to  be  very  similar,  and  the  methodology  of 
cost  estimation  was  formalized,  and  used  to  write  the 


computer  program  JOWP. 


Ill .  Model  Development 


Cost  Drivers 

The  first  objective  of  the  research  was  to  identify 
the  significant  cost  factors  in  the  injection  molding 
production  process.  Interviews  with  Dr.  James  Chew  of  the 
United  States  Air  Force  Astronautics  Laboratory  at  Edwards 
Air  Force  Base,  California,  Dr.  Chris  Frank  of  the  Air 
Force  Advanced  Composites  Program  Office,  and  Mr.  William 
Stoddard,  President  of  Accutech  Corporation,  a  commercial 
Injection  molding  manufacturer  in  Dayton,  Ohio,  yielded  the 
following  hierarchy  of  cost  factors: 

Mold  Production.  Mold  production  can  require  as  much 
as  600  hours  of  labor  by  a  machinist  charging  $65  per  hour, 
in  the  aerospace  industry  (Foley#  1990;  9).  Once  produced, 
the  mold  can  be  used  to  fabricate  an  almost  limitless 
number  of  parts  (mold  wear  being  virtually 
negligible) (Frank,  1991).  The  most  important  factor  in 
determining  the  amount  of  time  needed  to  machine  a  mold  is 
the  complexity  of  the  part  to  be. molded.  The  range  of 
labor  hours  needed  to  produce  the  mold  may  range  from  20 
hours  for  a  "simple"  part,  to  600  hours  for  a  "very 
complex"  one  (Stoddard,  1991).  What  makes  a  part  more  or 
less  complex  is  the  combination . of  four  characteristics: 

Number  of  Walls.  The  number  of  distinct  edges 
and  partitions  in  the  part. 
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Mnmbt»r  of  Cavities.  The  number  of  cavities  is 
equal  to  the  shot  weight  of  the  injection  molding  machine 
(generally  taken  to  be  805l{  of  the  shot  capacity  of  the 
injection  unit)  divided  by  the  weight  of  the  part  and 
runner  (Frank,  1990;  2). 

Number  of  Holes  and  Depressions.  Holes  and 
depressions  in  the  surface  of  the  part  make  it  more 
difficult  to  eject  from  the  mold  (George,  1991). 

Nximber  and  Orientation  of  Projections. 

Projections  make  the  part  difficult  to  eject  from  the  mold, 
especially  when  they  are  perpendicular  to  the  opening  of 
the  mold.  Parts  with  projections  may  require  additional 
production  steps  or  ejectors  to  remove  from  the  mold 
(George,  1991). 

As  shall  be  seen  later  in  this  paper,  the 
determination  of  part  complexity  is  the  area  of  cost 
estimation  requiring  the  greatest  exercise  of  analyst 
judgement . 

Equipment .  Equipment  which  must  be  purchased  for  each 
new  part  being  molded  consist  of  four  "packages": 

Mold  Base  Package.  The  steel  plates  and 
manifolds  into  which  the  shape  of  the  part  is  machined  to  ' 
form  the  mold.  For  smaller  parts,  inserts  may  be  used,  so 
that  the  majority  of  the  mold  base  may  be  reused. 

Control  Package.  Equipment  needed  to  control  the 
pressure  and  temperature  of  the  Injection  process. 
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Includes  transformers,  power  cables,  connectors,  terminal 
boxes,  and  temperature  controllers. 

Hot  Runner  Package.  A  series  of  nozzle 
assemblies  and  heaters  typically  used  only  for  high  volume 
or  higher  speed  production.  The  hot  ninner  assembly 
provides  a  heated  path  for  the  molten  polymer  to  travel 
from  the  injector  nozzle  to  the  mold. 

Support  Package.  Mold  plates,  support  pillars, 
and  ejector  pins,  necessary  for  production  of  complex 
parts. 

Occasionally,  these  packages  can  be  reused  from 
previous  molds.  When  this  is  possible,  the  purchase  price 
of  the  equipment  can  be  saved. 

Labor .  Labor  cost  will  be  defined  as  the  average 
hourly  wage  rate  of  workers  in  the  injection  molding 
industry,  multiplied  by  the  number  of  labor 
hours  directly  attributable  to  part  fabrication. 

Labor  Overhead.  Costs  of  overhead  Include  all 
production  costs  that  are  not  direct  materials  or  direct 
labor  (Allen  and  Moriarlty,  1991;  66).  The  overhead  cost 
will  be  calculated  by  combining  the  individual  overhead 
rates  into  a  comprehensive  overhead  wrap  rate,  and  ; 
multiplying  it  by  the  niimber  of  direct  labor  hours  required 
to  manufacture  the  mol d  and  produce  the  part .  The 
selection  of  the  application  basis  for  this  wrap  rate  can 
have  a  profound  effect  on  product  cost  .  The  use  of  Direct 
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Labor  Hours  is,  increasingly,  sighted  as  inappropriate  in 
modern,  automated,  production  processes  (Allen  and 
Moriarity,  1991;  67).  However,  this  is  still  the  standard 
basis  in  use  in  manufacturing  processes  and  will  be  used  in 
this  model  to  reflect  the  reality  of  the  producers  we  wish 
to  model. 

Materials.  The  purchase  cost  of  the  raw  material 
needed  to  fabricate  the  desired  part.  The  total  materials 
cost  for  a  part  will  be  the  weight  of  the  part  multiplied 
by  the  per  pound  cost  of  the  material.  This  price  must 
include  a  20%  excess  rate  (unused  polymer  left  in  the 
hopper  and  injector)  (Chew,  1990).  This  excess  is  the 
polymer  which  solidifies  in  the  pathway  from  the  injector 
to  the  mold.  It  is  necessary  to  maintain  proper  pressure. 
This  excess  material  breaks  off  and  is  discarded  when  the 
mold  is  cleared.  Material  remaining  in  the  injector  and 
hot  runner  stays  molten  and  is  used  during  the  next 
injection  (Prank,  1991). 

Material  Preparation .r  The  cottt  of  labor  to  dry  the 
raw  polymer  and  load  it  into  the  hopper  of  the  injection 
molder.  Typically,  polymer  materials  readily  absorb  water. 
To  be.  molded,  the  material  must  be  dried.  This  drying  is 
accomplished  by  baking  the  polymer  pellets  in  an  oven  or 
heater  in  the  material  hopper.  This  process  requires 
minimal  labor,  as  the  worker  need  only  pour  the  polymer 
pellets  into  the  oven  and  allow  them  to  dry  under 
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automatically  timed  and  controlled  heat  (George,  1991). 

The  overall  effect  of'  a  change  in  this  value  will  be 
virtually  negligible  within  any  reasonable  limits.  This 
step  is  included  in  the  model  for  the  sake  of  completeness, 
and  in  anticipation  that  future  materials  may  heed  more 
elaborate  preparation  and  the  model  would  be  prepared  to 
adapt  to  such  a  change. 

Fabrication.  The  burdened  hourly  labor  rate, 
multiplied  by  the  direct  labor  hours  required  to  produce 
the  part.  The  time  to  produce  the  part  is  its  cycle  time; 
how  long  the  part  is  in  the  mold  being  fprmed. 

Inspection  and  Finishing.  Once  produced,  the  part 
must  be  inspected  for  flaws  and,  occasionally,  trimmed  for 
excess  material,  although  the  latter  is  rare  (Stoddard, 

1991).  Time  required  for  this  process  is  largely  dependent 
on  the  complexity  of  the  part.  Cost  for  inspection  and 
finishing  will  be  calculated  by  mul :iplying  the  time 
required  to  perform  it,  by  the  burdened  labor  rate,. 

These  costs  are  essentially  the  same  as  for  standard 
process  costing  methodologies  (Allen  and  Moriarity,  1991;  68) 

Coat  Model 

The  second  objective  of  this  research  was  to  combine 
these  factors  into  a  cost  estimating  model  for  the 
injection  molding  process.  This  model  should  be  valid  for 
either  the  reciprocating  screw  or  two-stage  processes,  as 
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the  differences  in  the  values  for  the  cost  drivers  between 
these  methods  is  negligible  (Prank,  1990).  This  model 
integrates  injection  molding  process  information  and  cost 
accounting  methodology. 

The  injection  molding  production  process  begins  with 
the  uninspected  raw  material  and  ends  as  trimmed, 
inspected  parts  or  subassemblies.  To  estimate  the  cost  of 
this  process,  the  model  must  analyze  each  step  of  the 
process  path,  calculating  all  costs  associated  with  each 
step. 

Step  1 .  Calculate  the  burdened  labor  rate  (hourly 
labor  rate  adjusted  for  overhead)  for  the  production 
process.  An  unburdened  rate  of  $  22.00  per  hour  is  given 
as  a  default  value.  This  rate  is  the  aerospace  industry 
average  for  technicians  and  machinists  involved  in 
injection  molding  production  (Foley,  1990;  9).  Overhead 
rates  of  1145K  for  facilities,  equipment,  tooling,  and 
workers  not  involved  in  direct  labor  charged  to  part 
production,  419(  for  fringe  benefits,  27%  for  General  and 
Administrative  costsT  and  1454  for  training,  other  materials 
will  be  combined  in  an  overhead  wrap  rate  of  19654.  All  of 
these  values  are  average  rates  for  manufacturing  facilities 
in  the  aerospace  Industry  (Foley,  1990;  9).  This  will  be 
the  default  value  for  the  wrap  rate  for  the  model. 

The  user  may  change  either  of  these  values  as  appropriate. 
Once  these  rates  are  set,  the  burdened  hourly  labor  rate 
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wiJI  be  calculated  by  multiplying  the  overhead  wrap  rate  by 
the  number  of  direct  labor  hours  and  adding  the  product  to 
the  unburdened  rate. 

For  examplt-j,  using  the  default  values,  an  unburdened 
labor  rate  of  $22  an  hour,  multiplied  by  an  overhead  wrap 
rate  of  19b%  yields  an  hourly  overhead  cost  of  $43.12. 

This  is  added  to  the  unburdened  cost  to  achieve  a  burdened 
hourly  labor  cost  of  $65.12. 

Step  2.  Specify  the  cost  of  the  raw  material.  A 
default  value  of  $  20.00  per  pound  is  given.  This  is  the 
purchase  price  of  DuPont  Liquid  Crystalline  Polymer  HX4000 
(DxiPont,  1991).  The  user  may  change  this  value  to  reflect 
the  cost  of  the  specific  polymer  in  use. 

Step  3.  Specify  the  weight  of  the  part.  This  will  be 
the  weight  of  the  finished  part,  and  will  be  multiplied  by 
120%  to  reflect  the  20%  excess  rate  (unusad  polymer  left  in 
the  hopper  and  injector)  (Chew,  1991).  For  example, 
molding  a  10  pound  finished  part  will  require  an  input  of 
12  pounds  of  raw  material. 

Step. 4 .  Calculate  the  total  materials  cost  (CRM) . 

The  model  will  calculate  the  per  unit  cost  of  raw  materials 
by  multiplying  the  weight  of  the  part  by  the  material  cost. 

Step  5.  Set  the  material  preparation  time.  This  will 
be  the  time  required  tc  load, the  polymer  pellets  into  the 
oven  for  drying,  then  transfer  the  dried  material  to  Lhe 
injector  hopper.  The  raw  polymer  is  packaged  in  50  and  lOO 


pound  quantities.  The  time  will  be  the  minutes  needed  to 
prepare  100  pounds  of  raw  polymer.  100  pounds  was  chosen 
both  because  it  is  a  typical  value,  and  for  ease  of 
calculation.  A  default  va?ne  of  lO  minutes  per  100  pounds 
6f  raw  material  is  offered  {George,  1991). 

Step  6.  Calculate  the  material  preparation  Cost  (CP). 
This  will  be  the  burdened  hourly  labor  rate  multiplied  by 
the  time  for  material  preparation.  Using  the  default 
values  for  the  burdened  hourly  labor  rate  and  material 
preparation  time  yields  a  cost  of  $65.12  multiplied  by  .^16 
hours  (10  minutes),  or  $10.85. 

Step  7.  Set  the  complexity  level.  The  estimator  must 
specify  the  complexity  level  of  the  part  to  be  molded. 
Specifying  the  complexity  level  will  set  the  value  for  the 
labor  hours  required  to  machine  the  mold  of  the  part.  The 
number  of  hours  it  takes  the  machinist  to  produce  the  mold 
generally  ranges  between  20  hours  for  the  simplest  parts 
and  600  hours  for  very  complex  structures.  Complexity  is  a 
ftmction  of  the  numtar  of  walls-  the  mold  will  have,  the 
number  and  location  of  any  holes  and  depressions  in  the 
part,  whether  or  not  the  structure  has  continuous,  uniform 
walls,  and  whether  those  walls  arc  in  the  same  direction  as 
the  flow  of  the  Injected  polymer.  Any  of  these  factors  can 
Increase  the  a.Tiount  cf  time  and  cost  required  to  produce  a 
mold  for  it  (George,  1991 )  . 


In  this  model,  the  complexity  of  the  structure  will  be 
estimated  by  assigning  the  part  to  one  of  five  categories 
of  complexity,  each  described  by  a  set  of  part 
characteristics : 

Very  high  Complexity  (600  Hours  Machining  Labor). 
The  part  is  large  and  has  more  than  20  holes  and 
depressions.  Projections  from  the  part  are  perpendicular 
to  the  openings  of  the  mold.  The  mold  has  more  than  20 
walls.  The  part  will  have  inserts,  which  need  to  be  loaded 
into  it  during  the  molding  process.  The  part  has 
geometries  which  will  make  it  difficult  to  eject  from  the 
mold. 

High  Complexity  (400  Hours  Machining  Labor).  The 
part  is  large,  or  has  multiple  cavities  and  has  10  to  20 
holes  and  depressions.  The  part  has  10  to  20  walls.  The 
part  has  narrow,  deep  grooyes  or  slots,  and  geometries 
which  will  make  the  part  difficult  to  eject. 

Moderate  Complexity  (120  Hours  Machining  Labor). 
The  part  is  of  moderate  size  and  has  one  or  two  holes  or 
depressions.  The  mold  has  5  to  10  walls.  There  are  no 
geometries  which  will  make  Che  part  difficult  to  eject. 

Low  Complexity  (70  Hours  Machining  Labor).  The 
part  has  less  than  5  walls.  It  is  of  moderate  size,  with 
few  holes  and  depressions.  No  non-^circular  holes  or 
projections. 
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Very  Low  Complexity  (20  Hours  Machining  Labor). 
The  part  consists  of  a  single,  continuous,  uniform  wall  in 
the  direction  of  the  flow  of  the  material.  The  part 
contains  no  holes,  depressions,  grooves,  inserts,  or 
projections. 

These  descriptions  and  time  estimates  are  made  from 
interviews  with  Mr.  Christopher  Prank  of  the  Air  Force 
Advanced  Composites  Program  Office,  Mr.  William  Stoddard, 
Chief  Executive  Officer  of  Acutech,  Corporation,  and  Mr. 
Rudolph  George,  Chief  Machinist  of  Acutech. 

Step  8.  Calculate  cost  of  mold  production  (CM) .  The 
hours  required  for  mold  production,  as  set  by  the 
complexity  level,  are  multiplied  by  the  burdened  hourly 
laibor  rate  to  arrive  at  the  mold  production  cost.  A 
complexity  level  of  2,  for  example,  will  set  the  hours 
required  for  mold  production  at  120  hours.  Multiplying 
these  hours  by  the  burdened  hourly  labor  cost  of  $65.12 
will  yield  a  mold  production  cost  of  $7814.40. 

Step  9.  Specify  the  cost  of  equipment  (CE)  .  The  cost 
of  parts  pack<;^tv;  i.r'f.osr.ary  for  each  new  mold.  Primarily! 
the  Control,  Support,  Mold  Base,  and  Hot  Runner  packages. 
Default  costs  for  these  equipment  packages  are  derived  from 
vender  quotes  from  the  DME  Company  of  Monterey  Park,  Ca. 
(Livermore, 1901 )  .  Vendor  and  models  were  provided  by  Dr. 
John  Rusek  of  the  United  States  Air  Force  Astronautics 
Laboratory  as  being  the  most  commonly  used  supplier. 
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representative  of  currently  used  equipment.  The  default 
costs  are  for  packages  associated  with  high  volume 
production  of  a  large  part. 

Step  10.  Specify  the  fabrication  cycle  time.  This  is 
the  time  from  the  instant  the  material  enters  the  mold 
cavity  until  it  is  ejected  as  a  part  (Frank,  1989,  18).  A 
default  time  of  two  minutes  per  part  is  offered  (Stoddard,  1991). 

Step  11.  Calculate  the  fabrication  cost  (CF).  The 
process  cycle  time  is  multiplied  by  the  burdened  hourly 
labor  rate.  Using  the  default  values  for  the  burdened 
hourly  labor  rate  and  fabrication  cycle  time  yields  a  cost 
of  $65.12  multiplied  by  .033  hours  (2  minutes),  or  $2.17. 

Step  12.  Set  the  inspection  and  finishing  time.  This 
will  be  the  time  required  to  inspect  and  perform  post 
molding  operations  on  molded  parts.  Parts  are  typically 
inspected  in  large  lots,  rather  than  individually,  for  more 
efficient  processing.  In  very  large  production  runs, 
statistically  significant  samples  are  Inspected  to  insure 
quality.  A  default  time  of  five  minutes  per  100  parts  is  . 
offered  (Stoddard,  1991). 

Step  13.  Calculate  inspection  and  finishing  cost 
(Cl).  Multiply  the  Inspection  and  finishing  time  by  the 
burdened  hourly  labor  rate.  Using  the  default  values  for 
the  burdened  hourly  labor  rate  and  Inspection  and  finishing 
time  yields  a  cost  of  $65.12  multiplied  by  .083  hours  (5 
minutes),  or  $5.40. 
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step  14.  Add  the  Raw  Material,  Material  Preparation, 
Mold  Production,  Equipment,  Fabrication,  and  Inspection  and 
Finishing  costs  to  find  the  first  unit  production  cost. 

The  cost  of  subsequent  units  will  be  the  Raw  Material, 
Material  Preparation,  Fabrication,  and  Inspection  and 
Finishing  costs  (variable  costs)  added  to  the  Mold  and 
Equipment  Costs  (fixed  costs)  divided  by  the  number  of 
parts  produced . 

Cost  of  First  Unit 
CRM  +  CP  +  CF  +  Cl  +  CM  +  CE 

Cost  of  Production  Level  Units 
(CM  +  CE)/Nvunber  of  Units  +  CRM  +  CP  +  CP  +  Cl 

A  limited  test  of  the  model,  using  actual  production 
items  and  mold  production  hours  found  that  estimators  not 
familiar  with  the  specifics  of  the  injection  molding 
process  were  able  to  consistently  place  the  part  into  the 
complexity  category  most  closely  reflecting  the  actual 
labor  hours  to  produce  its  mold,  the  data  used  for  this 
test  was,  however,  incomplete,  and  the  number  and  scope  of 
the  tests  would  have  to  be  widened  to  thoroughly  validate 
the  model . 


22 


ly .  Program  Development 


The  final  objective  of  this  researcl>  is  to  present  the 
JOWP  model  to  users  in  a  manner  that  makes  it  easily 
usable.  To  do  this,  JOWP  has  been  programmed  into  a  Pascal 
language  computer  package  lor  use  with  IBM  compatible 
personal  computers.  A  listing  of  the  program  code  for  JOWP 
may  be  found  in  Appendix  A. 

JOWP  is  an  interactive  program.  The  user  is  presented 
with  definitions  of  each  of  the  process  steps  and  asked  to 
provide  values  for  the  variables.  The  default  values  for 
these  variables,  described  earlier,  are  provided,  and  the 
\iser  may  use  them,  or  replace  them  with  ones  of  his  own 
choosing. 

JOWP  processes  these  data  points  as  described  in  the 
cost  model,  and  presents  the  user  with  a  first  unit 
estimated  cost  and  per  unit  and  total  costs  for  higher 
production  levels. 

JOWP  will  demand  no  specialized  knowledge  of  computer 
commands  or  programming  languages.  It  operates  with  the 
TURBOPASCAL  compiler,  but  is  usable  with  any  Pascal 
compiler  system. 
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V*  Conclusions 

The  JOWP  program  formalizes  and  documents  the 
methodology  used  by  injection  molding  manufacturers  to 
estimate  the  costs  for  their  products.  Interviews  with 
manufacturers  and  polymer  developers  Identified  the 
significant  cost  drivers  for  the  process  as  the  cost  of 
mold  production,  equipment,  raw  material,  labor,  and  labor 
based  overhead.  The  program  uses  these  factors  In  the  same 
manner  as  is  currently  used  by  producers,  and  has  been 
programmed  Into  ah  Interactive  software  package  which 
allows,  an  estimator  with  little  technical  knowledge  of  the 
process  to  quickly  and  completely  estimate  costs.  The 
methodology  Is  consistent  with  accepted  cost  accounting 
st2uidards.  The  model  has  been  reviewed  by  injection 
molding  manufacturers  and  found  accurate  and  simple  to  use. 

Limited  testing  of  the  program  with  actual  cost  data 
and  estimators  with  a  basic  knowledge  of  cost  estimating 
(but  little  expertise  in  plastics  production)  found  the 
program  to  be  accurate  In  Its  prediction  of  mold  production 
manhours,  the  principle  cost  driver  of  the  process,  and  the 
one  for  which  the  host  complete  historical  data  was 
available. 
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VI .  Recommendations  For  Future  Study 
Historical  data  on  the  injection  molding  of  plastic 
parts  is  hard  to  find  and  incomplete.  As  the  process  gains 
wider  usage,  the  JOWP  program  should  undergo  a  more 
complete  validation. 

Use  of  a  pascal  compiler  other  than  TURBOPASCAL  might 
allow  more  simple  entry  into  the  progreun,  and  should  be 
investigated. 


Appendix  A:  Program  Listing  of  JOWP 


PROGRAM  JOWP: 


VAR 


ANSWER: CHAR; 
LAB'^'-HRATE , 


OHRATE , 
MATCO:.T, 
PRODMAT , 

MATWT, 

MBCOST, 

COMCOST , 
PREPCOST, 
SUPCOST. 
HOTCOST, 

MPLH, 

FALH, 

IFLH, 

BLR, 

MOLDCOST, 
FABLABCOST , 
INSFINCOST, 
RAWMATCOST , 
FUCOST , 
PRODCOST , 
PRODNUM, 
CYCLETIME, 
COMP, 

TOTCOST , 
FIXCOST, 
PREPTIME : REAL ; 


PROCEDURE  PRINTCOMMENTlS ; 


BEGIN 
WRITELN; 
WRITELN; 
WRITELN; 
WRITELN; 
WRITELN; 
WRITELN; 
WRITELN; 
WRITELN; 
WRITELN ( ' 
WRITELN ( ' 
WRITELN; 


JOWP’ ) ; 

Just  One  Word:  Plastics!'); 


WRITELN(  '  JOWP,  ejitlmates  fabrication  costs  for  polymer 
plastic  parts'); 

WRITELN ( 'produced  through  the  injection  molding  process. 
JOWP ' ) ; 
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WRITELN( ' integrates  th  rmoplastic  processing  knowledge 
and  process ' ) : 

WRITELN( ' cost  accounting  information.  JOWP  calculates 
production  costs'); 

WRITELN(  'beginning  with  the  raw,  unprepared  material,  and 
ending  with  an'); 

WRITELN( 'inspected  and  trimmed  part. ' ) 

END; 

^******m**mm*******mm**^**mmm*’**m*************m*m**** »*»*•** -^ 

PROCEDURE  PRINTINSTRUCTIONS ; 

BEGIN 

WRITELN( ' JOWP  computes  part  production  costs  using  input 
values  for ' ) ; 

WRITELN( 'material  costs,  hourly  labor,  overhead  rates, 
part  size ,  and ' ) ; 

WRITELN( ' complexity .  If  values  for  these  variables  are 
not  known, '); 

WRITELN( 'default  values,  based  on  industry  averages  may 
be  used . ' ) ; 

END; 


. . . . 

*•) 

PROCEDURE  CHECKANSWER; 

9EGIN 

WHILE(ANSWER<>'Y»  )  AND  (ANSWERO'N')  AND 

(ANSWERO'y*)  AND  (ANSWERO'n')  DO  BEGIN 
WRITELN; 

WRITELN{ 'ANSWER  MOST  BE  Y  OR  N.  TRY  AGAIN'); 

READ ( ANSWER ) ; 

WRITE (ANSWER) 

END  (WHILE) 

END;  (PROCEDURE  CHECK  ANSWER) 

*•*) 

PROCEDURE  GETLABORRATE  ( VAR  LABORRATE : REAL ) ; 

CONST 

GIVENLABORRATE»22.00;  . 

VAR 

NEWLABORRATE :  REAL; 

BEGIN 

WRITELN; 

v;ritELN(  'The  hourly  unburdened  labor  rate  is  the  wage 
paid' ) ; 
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WRITELN{'to  a  production  worker  for  an  hour'’s  labor. 
It  does ' ) ; 

WRITELN{ 'not  include  costs  for  equipment,  overhead, 
training, ' ) ; 

WRITELN('or  fringe  benefits.  The  rate  of  $22  per  hour 
is  an* ) ; 

WRaTELN( 'average  of  injection  molding  equipment 
operators , ' ) : 

WRITELNf 'material  handlers,  part  inspectors  and 

finishers ,  and ' )  ,- 

WRITELN( 'other  technician  level  workers. '}; 

WRITELN; 

WRITELM{'THE  UNBURDENED  HOURLY  LABOR  RATE 

IS ' , GIVENLABORRATE : 6 : 2 ) ; 

WRITELN (  'DO  vqu  WANT  TO  CHANGE  THE  LABOR  RATE?  Y  OR  M.  '  )  ; 


READ ( ANSWER ) ; 

CHECKANSWER; 

IP  (ANSWER  »  'N')  OR  (ANSWER  =»  'n')  THEN 
LABORRATE : =GIVENLABORRATE 
ELSE  BEGIN 
WRITELN; 

WRITELN  ('ENTER  NEW  UJ^URDENED  LABOR  RATE'); 

READ  ( NEWLABORRATE ) ; 

WHILE  ( NEWI-ABORRATE  <  0}  OR  (NEWLABORRATE  >  100)  DO 

BEGIN 

WRITELN (  'THE  LABOR  RATE  MUST  BE  A  NUMBER  BETWEEN 

0  AND  100' ) ; 

WRITELN  ( ' ENTER  NEW  UNBURDENED  LABOR  RATE ' ) ; 
READ  (NEWLABORRATE) 

END;  (WHILE) 

LABORRATE : >NEWLABORRATE 
END  (ELSE) 

END ;( PROCEDURE  GETLABORRATE } 


(•••• . . . .  .  . . 

PROCEDURE  GETOHRATE  (VAR  OHRATE:REAL) ; 

CONST 

GIVENOHRATE-1 .96;.  , 


VAR 

NEWOHRATE:  REAL; 

BEGIN 

WRITELN; 

WRITELN( 'The  overhead  wrap  rata  includes  all  costs 
associated'); 
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WRITELNC 'with  part  production  not  directly  chargeable  to 

the '); 

WRITELN( 'part  as  labor.  These  costs  include  equipment, 
plant ' ) ; 

WRITELN{ ' floorspace,  tooling,  facilities,  and  indirect 
labor . ' ) ; 

WRITELN(  'The  vrrap  rate  also  accounts  for  the  costs  of 
worker ' ) ; 

WRITELN( 'benefits ,  General  and  Administrative  costs,  and 
Support ' ) ; 

WRITELN(  'Services.  '  )  ; 

WRITELN; 

WRITELN; 

WRITELN  (  '  THE  CURRENT  OVERHEAD  RATE  IS  '  ,  GIVENOHRATE :  5  ;  2  )  ; 
WRITELN ('DO  YOU  WANT  TO  CHANGE  THE  OVERHEAD  RATE?  Y  OR 

N.'); 


READ ( ANSWER ) ; 

CHECKANSWER; 

IP  (ANSWER  »  'N')  OR  (ANSWER  -  'n')  THEN 
OHRATE ; -GIVENOHRATE 
ELSE  BEGIN 
WRITELN: 

WRITELN  ( ' ENTER  NEW  OVERHEAD  RATE ' ) ; 

READ  (NEWOHRATE); 

WHILE  (NEWOHRATE  <  0)  OR  (NEWOHRATE  >  10)  DO  BEGIN 
WRITELN; 

WRITELN ('THE  OVERHEAD  RATE  MUST  BE  A  NUMBER 
BETWEEN  0  AND  10'}; 

WRITELN  CENTER  NEW  OVERHEAD  RATE'); 

READ  (NEWOHRATE) 

END;  (WHILE) 

OHRATE : -NEWOHRATE 
END  (ELSE) 

END; (PROCEDURE  GETOHRATE) 


. . .  . . . 

PROCEDURE  GEtMATCOST  (VAR  MATCOST : REAL ) ; 
CONST 

GIVENMATC0ST-20 . 00 ; 


VAR 

NEWMATC0S7:  REAL; 

BEGIN 

WRITELN; 

WRITELN(  'The  Material  Cost  is  the  price  per  pound 

of); 

WRITELN( ' raw,  uninspected  polymer  resin.  This  price 

is'); 
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not 


WRITELN('the  purchase  price  of  the  resin, 
including'); 

WRITELN( 'delivery,  preinspection,  or  preparation. 

The ■ ) ; 

WRITELN( 'default  price  of  $20  per  pound  reflects  a 

pure ' ) ; 

WRITELN( 'polymer  resin,  unmixed  with  any  other 
material . ' ) ; 

WRITELN; 

WRITELN('THE  CURRENT  MATERIAL  COST 
IS ' , GIVENMATCOST : 6 : 2 ) ; 

WRITELN ('DO  YOU  WANT  TO  CHANGE  THE  MATERIAL  COST?  Y 

OR  N. ' ) ; 

READ ( ANSWER ) ; 

CHECKANSWER; 


IF  (ANSWER  »  'N')  OR  (ANSWER  =  'n')  THEN 
MATCOST : =GIVSNMATC0ST 
ELSE  BEGIN 
WRITELN; 

WRITELN  ( ' ENTER  NEW  MATERIAL  COST ' ) ; 

READ  (NEWMATCOST) ; 

WHILE  (NEWMATCOST  <  0)  OR  (NEWMATCOST  >  1000)  DO  BEGIN 


WRITELN; 

WRITELN ( 'THE  MATERIAL  COST  MUST  BE  A  NUMBER 
BETWEEN  0  AND  1000'); 

WRITELN  ( 'ENTER  NEW  MATERIAL  COST' ) ; 

READ  (NEWMATCOST) 

END;  (WHILE) 


•  MATCOST : -NEWMATCOST 

END  (ELSE) 

END; (PROCEDURE  GETMATCOST) 

•**) 


PROCEDURE  GETMATWT  (VAR  MATWT:REAL); 

VAR 

WTrREAL; 

BEGIN 

WRITELN; 

WRITELN; 

WRITE.LN( 'The  weight  of  the  part  is  its  finished,  trimmed 
weight ' ) ; 

WRITELN; 

WRITELN ( 'ENTER  THE  WEIGHT  OF  THE  FINISHED  PART  IN 
POUNDS . ' ) ; 

READ(WT); 

WHILE  (WT  <  0)  OR  (WT  >  10000)  DO  BEGIN 
WRITELN; 

WRITELN  ('THE  WEIGHT  OF  THE  PART  MUST  BE  A  NUMBER 


BETWEEN  0  AND  100.00'); 

WRITELN( 'ENTER  THE  WEIGHT  OP  THE  FINISHED  PART  '); 
END;  {WHILE} 

MATWT:=WT 

END; {PROCEDURE  GETMATWT} 

^«******#*********«**»»*********»**** ♦«*•***«•***•*•**»•**»** 

***•  } 

PROCEDURE  GETPREPTIME  (VAR  PREPTIME : REAL) ; 

CONST 

GIVENPREPTIME=«10 . 00 ; 

VAR 

NEWPREPTIME : REAL ; 

BEGIN 

WRITELN; 

WRITELN('The  material  preparation  time  Is  the  time  In 
minutes,  required'); 

WRITELN('to  make  the  raw  polymer  suitable  for  molding. 
This  Is  typically'); 

WRITELN ( 'accomplished  by  heating  the  polymer  to  dry  It. 
Material  preparation'); 

WRITELN { 'time  should  count  only  minutes  of  labor,  not  the 
time  the  polymer  Is'); 

WRITELN  (.'being  automatically  heated  or  processed.  A 
default  preparation'); 

WRITELN( ' time  of  10  minutes  Is  the  current  model  value' ) ; 
WRITELN; 

WRITELNCTHE  PREPARATION  TIME  FOR  100  POUNDS  OF  RAW 
MATERIAL  IS ', GIVENPREPTIME : 8 ; 2 ) ; 

WRITELNCDO  YOU  WANT  TO  CHANGE  THE  PREPARATION  TIME?  Y 
OR  N' ) ; 

READ ( ANSWER ) ; 

CHECXANSWER; 

IF  (ANSWER  -  'N')  OR  (.ANSWER  'n' )  THEN 
PREPTILS : -GIVENPREPTIME 
ELSE  BEGIN 
WRITELN; 

WRITELN  CENTER  NEW  PREPARATION  TIME'); 

READ  { NEWPREPTIME ) ; 

WHILE  (NZWPREPTIME  <  0)  OR  ( NEWrr.*?TIME  >  100)  DO 

BEGIN 

WRITZLK ; 

WRITELN ( 'THE  PREPARATION  TIME  MUST  BE  A  NUMBER 
BETWEEN  0  AND  100'); 

WRITELN  ( ' ENTER  NEW  PREPARATION  TIME ' ) ; 
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READ  (NEWPREPTIME) 
END;  (WHILE) 

CYCLETIME : =NEWPREPTIME 
END  (ELSE) 


ICND:  (PROCEDURE  GETPREPTIME) 


PROCEDDEE  GETMBCOST  (VAR  MBCOST : REAL) ; 
CONST 

GIVENMBC0ST=8488 . 00 ; 


VAR 

NEWMBCOST:  REAL; 

BEGIN 

WRITELN; 

WRITELN('The  injection  molding  process  requires  the  use 

of  • )  ; 

WRITELN ( 'a  mold  base  package,  a  control  package,  a 
support ' )  ; 

WRITELN ( 'package,  and  a  hot  runner  package.  Default 
costs ' ) ; 

WRITELN('for  these  equipment  packages  are  taken  from 
purchase,'  ); 

WRITELN (' costs  from  the  DKS  Company  of  Montery  park, 
California. ' ) ; 

WRITELN('If  purchase  of  any  of  these  equipment  packages 

are '  )  ; 

WRITELN ( 'not  required  for  production  of  this  part,  enter 
a  cost ' ) ; 

WRITELN( 'of  $0  for  that  equipment  package.'); 

WRITELN; 

WRITELN ('THE  CURRENT  MOLD  BASE  PACKAGE  COST 
IS ' , GIVENMBCOST : 8 ; 2 ) ; 

WRITELN; 

WRITELN ( 'This  is  the  purchase  price  for  a  DME 
2429X-6-37' )  ; 

WRITELN (' Semi-standard  #3  steel  mold  base  '); 

WRITELN; 

WRITELN  (  '  DO  YOU  WANT  TO  CHANGE  THE  MOLD  BASE  PACKAGE 
COST?  Y  OR  N. ' ) ;  , 


READ (ANSWER) ; 

CHECKANSWER; 

IP  (ANSWER  »  'N')  OR  (ANSWER  »  'n')  THEN 
MBCOST : -GIVENMBCOST 
ELSE  BEGIN 


WRITELM; 

WRITELN  ('ENTER  NEW  MOLD  BASE  PACKAGE  COST'); 

READ  (NEWMBCOST);  , 

WHILE  (NEWMBCOST  <  0)  OR  (NEWMBCOST/ 10  >  10000)  DO 

BEGIN 

WRITELN; 

WRITELN (  'THE  COST  OP  THE  MOLD  BASE  PACKAGE  MOST  BE 
A  NUMBER  BETWEEN  0  AND  100000'); 

WRITELN; 

WRITELN( 'This  is  the  purchase  price  for  a  DME 
2429X-6-37' )  ; 

WRITELN (' S^mi-standard  #3  steel  mold  base  '); 
WRITELN; 

WRITELN  (  '  ENTER  THE  COST  OF  THE  MOLD  BASE 

PACKAGE . ' ) ; 

READ  (NEWMBCOST) 

END;  (WHILE) 

END  (ELSE) 

END; (PROCEDURE  GETMOLDBASECOST) 


^m*mmm**m**m*m*m**mmm*m*m**m*m**»m***m*****mm******m**m****** 

**) 

PROCEDURE  GETCONCOST  (VAR  CONCOST:REAL) ; 


CONST 

GIVENC0NC0ST=6905 . 00 ; 

VAR 

NEWCONCOST:  REAL; 


■BEGIN 

WRITELN; 

WRITELN  (  ,' THE  CURRENT  CONTROL  PACKAGE  '  COST 

IS ' , GIVENCONCOST : a : 2 )  ; 

WRITELN; 

WRlTELN( 'This  is  the  purchase  price  for  a  DME  Control 


Package ' ) ; 

WRITELN( 'consisting  of: 
WRITELN ( ' 

WRITELN ( ' 

Package'); 

WRITELN ( ' 

WRITELN ( ' 

WRITELN ( ' 


TK9-1AG  Transformer'); 

1  MPP12G  Main  Frame 


1 

1 


MPC12-C10Q  Power  Cable'); 
TC12C10G  T/C  Cable'); 
ETC12G  Input  Connector'); 


WRITELN ( ' 
WRITELN ( ' 
Controllers ' ) ; 

WRITELN ( ' 
WRITELN; 

WRITELN ('DO  VOU 


1  MTC12G  T/C  Connector' ) ; 
12  CMP15G  Temperature 

.1  PTC12TBG  Terminal  Box'); 


WANT  TO  CHANGE  THE  CONTROL  PACKAGE  COST? 
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Y  OR  N. ' ) ; 


READ (ANSWER) ; 

CHECKANSWER; 

IF  (ANSWER  *  'N')  OR  (ANSWER  =  'n')  THEN 
CONCOST : =GIVENCONCOST 
ELSE  BEGIN 
WRITEI.N; 

WRITELN  ( ' ENTER  NEW  CONTROL  PACKAGE  COST ' ) ; 

READ  (NEWCONCOST) ; 

WHILE  (NEWCONCOST  <  0)  OR  (NEWCONCOST/ 10  >  10000)  DO 

BEGIN 

WRITELN; 

WRITELN  ('THE  COST  OP  THE  CONTROL  PACKAGE  MUST  BE 
A  NUMBER  BETWEEN  0  AND  100000'); 

WRITELN  (  'ENTER  THE  COST  OF  THE  CONTROL  PACKAGE.  '  )  ; 

READ  (NEWCONCOST) 

END;  (WHILE) 

CONCOST : ^NEWCONCOST 
. END  (ELSE) 

END; (PROCEDURE  GETCONTROLCOST) 

^*mm********m*m**mm*m***m**mm*mmm**m*m*******m**m9********m** 

****  j 

PROCEDURE  GETSUPC03T  (VAR  SUPCOST : REAL ) ; 


CONST 

GIVENSUPC0ST=2673 . 00 ; 

VAR 

NEWSUPCOST:  REAL; 


BEGIN 

WRITELN; 

WRITELN('THE  CURRENT  SUPPORT  PACKAGE  COST 
IS ' , GIVENSUPCOST : 8 : 2 ) ; 

WRITELN; 

WRITELN ( 'This  Is  the  purchase  price  for  a  OKE  Support 
Package ' ) ; 

WRITELN( 'consisting  of :') ; 

WRITELN ( '  2  1118-57  Mold  Plates ') ; 

WRITELNC  10  6144  Support  Pillars'); 


WRITELN ( ' 
WRITELN ( ' 
WRITELN ( ' 
WRITELN ( ’ 
WRITELN ( ' 
WRITELNC 
WRITELN ( ' 


1  SR50125 

1  Sr50125H 

6  EX17M14 

20  EX19M10 
14  EX-27  M6 
30  3/4  X  1/2 
8  5410GL 


Sprue  Reamer ' ) 
Sprue  Reamer ' ) 
Ejector  Pins') 
Ejector  Pins') 
Ejector  Pins') 
Tubular  Dowls ' ) 
Leader  Pins ' ) ; 


4  HTIS24362  Insulator 


WRITELN( ' 

Sheets ' ) ; 

WRITELN; 

WRITELN( 'DO  YOU  WANT  TO  CHANGE  THE  SUPPORT  PACKAGE  COST? 
y  OR  N . ' ) ; 

READ (ANSWER) ; 

CHECKANSWER; 

IP  (ANSWER  =  'N')  OR  (ANSWER  =  'n' )  THEN 
SOPCOST : =GIVENSUPCOST 
ELSE  BEGIN 
WRITELN; 

WRITELN  ('ENTER  NEW  SUPPORT  PACKAGE  COST' ) ; 

READ  (NEWSUPCOST) ; 

WHILE  (NEWSUPCOST  <  0)  OR  (NEWSUPCOST/ 10  >  10000)  DO 

BEGIN 

WRITELN; 

WRITELN ('THE  COST  OP  THE  SUPPORT  PACKAGE  MOST  BE 
A  NUMBER  BETWEEN  0  AND  100000'); 

WRITELN  (  '  ENTER  THE  COST  OP  THE  SUPPORT  PACKAGE .  '  )  ; 

READ  (NEWSUPCOST) 

END;  (WHILE) 

SUPCOST : ^NEWSUPCOST 
END  (ELSE) 

END; (PROCEDURE  GETSOPPORTCOST) 

{***••**•’•••*•** . . . . 

««««  ^ 

PROCEDURE  GETHOTCOST  (VAR  KOTCOSTrREAL) ; 

CONST 

GIVENHOTCOST-5672 . 00 ; 

VAR 

NEWHOTCOSTrREAL; 

BEGIN 

WRITELN; 

WRITELN ( 'This  is  the  purchase  price  for  a  DME  Hot  Runnet 
Package ' ) ; 

,  WRITELN ( 'consisting  of :') ; 

WRITELN ( '  1  Manifold  '); 

WRITELN ('  6  EHTOOOl  Nozzle 

Assemblies ') ; 

WRITELN ( '  6  EHTObia  Sprue  Gate  Tip 

Sub-Assembly ' ) ; 

WRITELN ( '  8  ECH0118  Cartridge 

Heaters ' ) ; 

WRITELN( '  4  ECH0103  Cartridge 

Heaters ' ) ; 

WRITELN ( '  3  ETC02S1  Thermocouple'); 


WRITELN( '  1  EHL0253  Locating  Ring ') ; 

WRITELNC  1  EHN0002  Nozzle  Seat  ’); 

WRITELN( '  1  ECHO 162  Center  Support ') ; 

WRITELN{ '  4  ERP0163  Riser  Pad ') ; 

WRITELNC  2  ERP0165  RiserPad'): 

WRITELNC  12  ESR0158  Spacer  Rings'); 

WRITELNC  2  EHR0155  Seal  Rings'); 

WRITELN; 

WRITELN('DO  YOU  WANT  TO  CHANGE  THE  HOT  RUNNER  PACKAGE 
COST?  Y  OR  N. ' ) ; 

READ (ANSWER) ; 

CHECKANSWER; 

IF  (ANSWER  =  'N')  OR  (ANSWER  «  'n' )  THEN 
HOTCOST ; =GIVENHOTCOST 
ELSE  BEGIN 
WRITELN; 

WRITELN  ( ' ENTER  NEW  HOT  RUNNER  PACKAGE  COST ' ) ; 

READ  (NEWHOTCOST) ; 

WHILE  (NEWHOTCOST  <  0)  OR  ( NEWHOTCOST/ 10  >10000)  DO 

BEGIN 

WRITELN; 

WRITELN  ('THE  COST  OF  THE  HOT  RUNNER  PACKAGE  MUST 
BE  A  NUMBER  BETWEEN  0  AND  100000'); 

WRITELN  ( ' ENTER  THE  COST  OF  THE  HOT  RUNNER 

PACKAGE . ' ) ; 

READ  (NEWHOTCOST) 

END;  (WHILE) 

HOTCOST : =NEWHOTCOST 
END  (ELSE) 

END; (PROCEDURE  GETHOTRUNNERCOST) 


••) 

PROCEDURE  GETCYCLETIME  (VAR  CYCLETIME ; REAL )  ; 

CONST 

GIVENCYCLETIME-02 . 00 ; 

VAR  . 

NEWCYCLETIME ; REAL ; 

BEGIN 

WRITELN; 

WRITELNCThe  cycle  time  is  the  time  in  minutes,  from  the 
instant'); 

WRITELN('the  polymer  enters  the  mold,  until  it  is 
ejected.'); 

WRITELN( 'Cycle  time  has  a  significant  impact  on 
production  cost'); 


WRITELN('as  the  number  of  units  increases.  Enter'}; 
WRITELN(’the  parf's  cycle  time  in  minutes.  A  default 
cycle  ' ) ; 

WRITELN(  'time  of  2  minutes  is  the  current  model  value' ) ; 
WRITELN; 

WRITELN('THE  CYCLE  TIME  FOR  THE  PART 
IS ' , GIVENCYCLETIME : 6 : 2 ) ; 

WRITELN (  'DO  YOU  WANT  TO  CHANGE  THE  CYCLE  TIME?  Y  OR  N'  )  ; 

READ (ANSWER) ; 

CHECKANSWER; 

IF  (ANSWER  =  'N')  OR  (ANSWER  =  'n')  THEN 
CYCLETIME : =GIVENCYCLETIME 
ELSE  BEGIN 
WRITELN; 

WRITELN  ('ENTER  NEW  CYCLE,  TIME'); 

READ  (NEWCYCLETIME); 

WHILE  (NEWCYCLETIME  <  0)  OR  (NEWCYCLETIME  >  100)  DO 

BEGIN 

WRITELN; 

WRITELN (  'THE  CYCLE  TIME  MUST  BE  A  NUMBER  BETWEEN 

0  AND  100* )  ; 

WRITELN  ( ' ENTER  NEW  CYCLE  TIME ' ) ; 

READ  (NEWCYCLETIME) 

END;  (WHILE) 

CYCLETIME : =NEWCYCLETIME 
END  (ELSE) 

END; (PROCEDURE  GETCYCLETIME) 


PROCEDURE  GETIFLH  (VAR  IFLHsREAL) ; 

CONST  , 

GIVENIFLH-05 . 00 ; 

VAR 

NEWIFLH:REAL; 

BEGIN 

WRITELN; 

WRlTELN('The  time  to  inspect  and  finish  the  part  is  the 
time'); 

WRITELN(  'in  minutes  to  insure  proper  size,  shape,  and' ) ; 

WRITELN( 'quality  for  100  parts  after  ejection  from  the 
mold.  . Most.' ) ; 

, WRITELN ( 'parts  require  no  trimming  or  alteration. 
However ,  more ' ) ;  , 

WRITELN( ' complex  parts  may  require  some  post-molding 
procedures . ' ) ; 
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WRITELN(  'A  default  time  of  5  minutes  is  the  current  model 
value ' ) : 

WRITELN( 'This  time  is  for  a  lot  of  1-100  units,  and  will 
include ' ) ; 

WRITELN('all  Quality  Control  operations.'); 

WRITELN; 

WRITELNCTHE  INSPECTION  AND  FINISHING  TIME  FOR  100  PARTS 
IS' ,GIVENIFLH:8:2) : 

WRITELN  ('DO  YOU  WANT  TO  CHANGE  THE  INSPECION  AND 
FINISHING  TIME?  Y  OR  N ' ) ; 

READ (ANSWER) ; 

CHECKANSWER; 

IF  (ANSWER  =  'N')  OR  (ANSWER  =  'n')  THEN 
IFLH:=GIVENIFLH 
ELSE  BEGIN 
WRITELN; 

WRITELN  ( 'ENTER  NEW  INSPECTION  AND  FINISHING  TIME' ) ; 
READ  (NEWIFLH); 

WHILE  (NEWIFLH  <  0)  OR  (NEWIFLH  >  100)  DO  BEGIN 
WRITELN ; 

WRITELN (  'THE  IFLH  MUST  BE  A  NUMBER  BETWEEN  0  AND 

100'); 

WRITELN  ( ' ENTER  NEW  IFLH ' ) ; 

READ  (NEWIFLH) 

EirO;  (WHILE) 

IFLH:=NEWIFLH 
END  (ELSE) 

END; (PROCEDURE  GETIFLH) 


PROCEDURE  SETCOMPLEXITYLEVEL  ( VAR  MPLH , COMP : REAL )  ; 

BEGIN  . 

WRITELN; 

WRITELN( 'A  crucial  factor  in  determining  the  cost  of 

the ' )  ; 

WRITELN(  ' finished  part  is  if's  complexity.  The 
complexity'); 

WRITELN ( 'of  the  part  will  factor  heavilly  in  the  time 

and ' ) ; 

WRITELN ( 'cost  required  to  produce  the  original  mold  and 

to'); 

WRITELN (' Inspect  and  trim  the  molded  part.  JOWP 
divides ' ) ; 

WRITELN ( 'parts  into  five  levels  of  complexity.  Examine 

the'); 

WRITELN( 'descriptions  below  and  enter  the  level  which 
best* ) ; 

WRITELN( 'describes  the  part  whose  cost  you  wish  to 
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estimate.'); 

WRITELN; 

WRITELN( 'Press  RETURN  to  continue.'); 

READ ( ANSWER ) : 

IF  ANSWER  <>  '“'  THEN 
BEGIN 
WRITELN: 

WRITELN; 

WRITELN('  Complexity  Description'); 

WRITELN: 

WRITELN( '5  -  Very  High:  Large  size  or  multiple  cavities. 
20  or  more  walls,'); 

WRITELN ( '  600  Hours  20  or  more  holes  or  depressions. 

Projections'); 

WRITELN( '  perpendicular  to  the  opening  of 

the  mold. ' ) ; 

WRITELN ( '  Loaded  inserts.  Geometries 

which  will  make'); 

WRITELN ('  ejecting  the  part  from  the  mold 

difficult.'); 

WRITELN; 

WRITELN('4  -  High:  10  to  20  walls.  Large  size  or 

multiple  cavities.  10  to  20  ' ) ; 

WRITELN ( '  400  Hours  holes  or  depressions.  Narrow, 

deep  walls  or  grooves.'); 

WRITELN('  Geometries  which  will  make 

ejecting  the  part  dlfficnlt.  ');  , 

WRITELN; 

WRITELN('3  -  Moderate:  5  to  10  walls.  Moderate  size. 
One  or  two'); 

WRITELN ( '  120  Hours  holes  or  depressions.  No 

geometries  which' ) ; 

WRITELN( '  will  make  the  part  difficult  to 

eject. ' ) ; 

WRITELN; 

WRITELN('2  -  Low;  1  to  4  walls.  Pew  holes  or 

depressions . ' ) ; 

WRITELN ( '  70  Hours  No  non-circular  holes.  No 

projections.'); 

WRITELN; 

WRITELN('l  -  Very  Low:  Continuous,  uniform  wall  in  the 
direction'); 

WRITELN ('  30  Hours  of  the  injection.  No  holes, 

depressions,'); 

WRITELN ( '  grooves,  inserts,  or 

projections.'); 

WRITELN; 

WRITELN ( 'Enter  the  number  of  the  parf's  complexity 
level ’ ) 

END; 
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READ (COMP) ; 


WHILE  (COMP  <  0)  OR  (COMP  >  5)  DO  BEGIN 
WRITELN: 

WRITELN( 'The  parf's  complexity  level  must  be  a 
number  between  1  and  5 . ' ) ; 

WRITELN  ('Enter  the  complexity  level  of  the 

part.'); 

READ  (COMP) 

END;  (WHILE) 

IP  C0MP»1  THEN  BEGIN 
MPLH:=>20; 

END 

ELSE  IF  C0MP=2  THEN  BEGIN 
MPLH:»70; 

END 

ELSE  IP  C0MP=3  THEN  BEGIN 
MPLH:=»120; 

END 

ELSE  IP  C0MP>4  THEN  BEGIN 
MPLH:»400; 

END 

ELSE  IP  COMP-5  THEN  BEGIN 
MPLH : -600 ; 

END 

END; (PROCEDDRE  SETCOMPLEXITYLEVEL) 

m*  «**•»**  m*****m*mm*mmii$t*m*»*m**** 

***) 

PROCEDURE  GETPRODNUM; 

BEGIN 

WRITELN; 

WRITELN ( 'Do  you  wish  to  estimate  production  costs  for  more 
than ' ) ; 

WRITELN ( 'one  unit?  YORN.'); 

READ ( ANSWER ) ; 

CHECXANSWER; 

IP  (ANSWER  -  'N')  OR  (ANSWER  -  'n')  THEN 
PRODNUM:-! 

ELSE  BEGIN 
WRITELN; 

WRITELN  ('How  many  units  do  you  wish  to  produce?'); 
READ  (PRODNUM); 

END  (ELSE)  . 

END; 


BEGIN 

PRINTCOMMENTS ; 

PRINTINSTRUCTIONS ; 

6ETLAB0RRATE ( LABORRATE ) ; 

6ET0HRATE ( OHRATE } ; 

GETMATCOST(MATCOST) : 

GETMATWT(MATWT) ; 

GETMBCOST ( MBCOST ) ; 

GETPREPTIME( PREPTIME) ; 

GETCONCOST(CONCOST) ; 

GETSOPCOST ( SUPCOST ) ; 

GETHOTCOST(HOTCOST) ; 

GSTCYCLETIME ( CYCLETIME ) : 

GETIFLH(IFLH): 

SETCOMPLEXITYLEVEL ( MPLH , COMP ) ; 

GETPRODNUM; 

BLR :  >LABORRATE-t-  ( OHRATE* LABORRATE )  ; 

MOLDCOST : - ( BLR*MPLH ) +MBCOST ; 

FABLABCOST: »BLR* (CYCLETIME/ 60) *PRODNUM; 

INSFINCOST : -BLR* ( { IFLH/60 ) /lOO ) *PRODNUM; 

RAWMATCCST : -MATCOST* ( MATWT* 1 . 25 ) ; 

PREPCOST : -BLR* (( PREPTIME/60 )/ 100 ) *PRODNUM ; 

PRODMAT : »PRODNOM*RAWMATCOST ; 

FUCOST : -RAWMATCOST+MOLDCOST+CONCOST+HOTCOST+SUPCOST ; 
FIXCOST : -MOLDCOST+SUPCOST+HOTCOST+CONCOST ; 


PRODCOST : - ( FIXCOST+FABLABCOST+PRODMAT+PREPCOST+INSFINCOST) /PR 
ODNUM; 

TOTCOST ; -PRODCOST *PRODNUM ; 

WRITELN( '  Input  Values'); 

WRITELN; 

WRITELN( '  Unburdened  Labor  Rate  $ 

LABORRATE : 8 : 2 ) ; 

WRITELN; 

WRITELN ( '  Overhead  Wrap  Rate  $ 

• , OHRATE : 8 : 2 ) ; 

WRITELN; 

WRITELN  (  '  Weight  of  the  Part 
MATWT: 8:2, '  pounds'); 

WRITELN; 
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WRITELNC '  Cost 

of 

Raw  Material 

$ 

'  ,MATCOST:8:2, '  per 

poxuid '  )  ; 

WRITELN; 

WRITELNC '  Cost 

of 

Mold  Base  Package 

$ 

'  ,MBC0ST:8:2) ; 
WRITELN; 

WRITELNC '  Cost 

of 

Control  Package 

$ 

'  ,CONCOST:8:2) ; 
WRITELN; 

WRITELNC '  Cost 

of 

Hot  Runner  Package 

$ 

•  ,C0NC0ST:8:2) ; 
WRITELN; 

WRITELNC '  Cost 

of 

Support  Package 

$ 

'  ,SOPCOST:8:2)  ; 

WRITELN; 

WRITELN( '  Complexity  ' . COMP: 8:2); 


WRITELN; 

WRITELN ( '  Minutes  to  Prepare  Material 
'  . PREPTIME : 8 : 2 ) ; 

WRITELN; 

WRITELN ( '  Number  of  Units  to  be  Produced 
'  ,PRODNOM:8;2) ; 

WRITELN( 'Press  RETURN  to  continue. ' ) ; 

READ ( ANSWER ) ; 

IP  ANSWER  <>  ' • '  THEN 
BEGIN 

WRITELN( '  Manufacturing  Costs' ) ; 

WRITELN; 

WRITELN ( '  First  Unit  Costs'); 

WRITELN; 

WRITELN ( '  Raw  Material  $  ' , RAWMATCOST : 8 : 2 ) ; 

WRITELN ( '  Mold  Cost  $  ' ,M0LDC0ST:8:2) ; 

WRITELN ( '  Control  Package  $  ' , CONCOST:  8 : 2 ) ; 

WRITELN (  '  Hot  Riuiner  Package  $  '  ,H0TC0ST:8 : 2 )  ; 

WRITELNC  Support  Package  $  '  ,SUPC0ST:8:2)  ; 

WRITELN; 

WRITELNC  Cost  of  First  Unit  $  '  ,FUCOST:  8 :  2 )  ; 

WRITELN; 

WRITELNC  Cost  of  '  ,PR0DNUM:8;2,  '  Units'); 


WRITELN; 
WRITELN ( 
WRITELN; 
WRITELNC 
WRITELN; 
WRITELNC 
WRITELN; 
WRITELNC 
WRITELN; 


'  Raw  Material 
'  Material  Preparation 


Cost  of  Labor 


'  Inspection  and  Finishing  $ 


' ,PRODMAT:8:2) ; 

' ,PREPC0ST:8:2) ; 

'  ,FABLABCOST;8:2) ; 

' ,INSPrNCOST:8:2) ; 


WRITELNCPer  unit  cost  of  •  .PRODNUM: 8 : 0 ,  ’  units  is 
’  , PRODCOST : 8 : 2 )  :  , 

WRITELN; 

WRITELN{'The  cost  of  producing  '  .PRODNUM: 8 : 0 units  is  $ 
•  ,10TC0ST:8:2)  ; 

END; 
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